(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     78005,       2298]
NotebookOptionsPosition[     76955,       2260]
NotebookOutlinePosition[     77293,       2275]
CellTagsIndexPosition[     77250,       2272]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"u", ",", "u", ",", 
     RowBox[{"u", "-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
         " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
       
       RowBox[{
        SqrtBox["2"], " ", "\[Rho]"}]]}], ",", 
     RowBox[{"u", "+", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
         " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
       
       RowBox[{
        SqrtBox["2"], " ", "\[Rho]"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox["2", 
        RowBox[{
         SuperscriptBox["u", "2"], "-", 
         SuperscriptBox["v", "2"]}]], ",", 
       FractionBox[
        RowBox[{"2", " ", "u"}], 
        RowBox[{
         SuperscriptBox["u", "2"], "-", 
         SuperscriptBox["v", "2"]}]], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"2", " ", "v"}], 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["u", "2"]}], "+", 
         SuperscriptBox["v", "2"]}]], ",", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "u", " ", "v"}], 
         RowBox[{
          SuperscriptBox["u", "2"], "-", 
          SuperscriptBox["v", "2"]}]]}], ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "+", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "+", 
            RowBox[{"2", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "-", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}], "-", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["v", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "-", 
             RowBox[{"2", " ", 
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{"u", "-", "v"}], ")"}]}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}]}], ")"}]}], ",", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "v", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "+", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "-", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "+", 
            RowBox[{"2", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "+", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}], "+", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"u", "-", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["v", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
             RowBox[{"2", " ", 
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}]}], ")"}]}], ",", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "v", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "-", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", "1"}], "}"}]}], "}"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.513766363370403*^9, 3.513766377264547*^9}, 
   3.513766658060275*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"2", " ", "\[Rho]"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["u", "2"], "+", 
          SuperscriptBox["v", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
       
       RowBox[{
        SqrtBox["2"], " ", "u", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
          " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "e"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["u", "2"], "+", 
               SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
           ")"}]}]]}]}], ")"}]}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"a", "==", 
       FractionBox[
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
          " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "e"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["u", "2"], "+", 
               SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
        RowBox[{
         SqrtBox["2"], " ", "\[Rho]"}]]}], ",", "e"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ">", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.513766681545977*^9, 3.513766713857586*^9}, {
  3.513766789672458*^9, 3.513766807487609*^9}, {3.51376686978275*^9, 
  3.513766905373032*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox["1", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SqrtBox[
       SuperscriptBox["a", "2"]]}], " ", "u"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["u", "2"], "+", 
       SuperscriptBox["v", "2"]}], ")"}]}], "+", 
    FractionBox[
     SuperscriptBox["a", "2"], 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Gamma]"}]]}]], "}"}]], "Output",
 CellChangeTimes->{
  3.513766808771357*^9, {3.513766876333294*^9, 3.513766906064384*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Rho]"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
          "+", 
          RowBox[{
           SqrtBox["2"], " ", "u", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
             "\[Gamma]", " ", "\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "e"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["u", "2"], "+", 
                  SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
              ")"}]}]]}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "+", 
            RowBox[{"2", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "-", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}], "-", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["v", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "-", 
             RowBox[{"2", " ", 
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{"u", "-", "v"}], ")"}]}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}]}], ")"}]}], ",", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "v", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "+", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", "1"}], "}"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"2", " ", "\[Rho]"}], ")"}]}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["u", "2"], "+", 
            SuperscriptBox["v", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
         "+", 
         RowBox[{
          SqrtBox["2"], " ", "u", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
            "\[Gamma]", " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "e"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["u", "2"], "+", 
                 SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
             ")"}]}]]}]}], ")"}]}], ")"}]}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"a", "==", 
       FractionBox[
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
          " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "e"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["u", "2"], "+", 
               SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
        RowBox[{
         SqrtBox["2"], " ", "\[Rho]"}]]}], ",", "e"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", ">", "0"}], ",", 
     RowBox[{"a", ">", "0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51376692308024*^9, 3.513766970275726*^9}, {
  3.513767070306771*^9, 3.513767144238645*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{
     RowBox[{"-", "a"}], "+", "u"}], ",", "v", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "a"}], " ", "u"}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["u", "2"], "+", 
        SuperscriptBox["v", "2"]}], ")"}]}], "+", 
     FractionBox[
      SuperscriptBox["a", "2"], 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.513767132970958*^9, 3.513767145730752*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"u", "-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
         " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
       
       RowBox[{
        SqrtBox["2"], " ", "\[Rho]"}]]}], ",", "v", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["u", "2"], "+", 
           SuperscriptBox["v", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
        RowBox[{
         SqrtBox["2"], " ", "u", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]",
            " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "e"}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["u", "2"], "+", 
                SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
            ")"}]}]]}]}], 
       RowBox[{"2", " ", "\[Rho]"}]]}]}], "}"}], "/.", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"a", "==", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
         " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
       
       RowBox[{
        SqrtBox["2"], " ", "\[Rho]"}]]}], ",", "e"}], "]"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.513767041533861*^9, 3.513767054576712*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"u", "-", 
     FractionBox[
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Rho]", "2"]}]], "\[Rho]"]}], ",", "v", ",", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["u", "2"], "+", 
        SuperscriptBox["v", "2"]}], ")"}]}], "+", 
     FractionBox[
      SuperscriptBox["a", "2"], 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}]], "-", 
     FractionBox[
      RowBox[{"u", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"]}]]}], "\[Rho]"]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.513767044449884*^9, 3.513767055346998*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox[
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", " ", 
    "\[Rho]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "e"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["u", "2"], "+", 
         SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
  RowBox[{
   SqrtBox["2"], " ", "\[Rho]"}]]], "Input",
 CellChangeTimes->{
  3.513766936313676*^9, {3.513767011480127*^9, 3.513767014112531*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "-", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "+", 
            RowBox[{"2", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], "+", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}], "+", 
            RowBox[{
             SqrtBox["2"], " ", 
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
               "\[Gamma]", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "e"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                ")"}]}]]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"u", "-", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["v", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
             RowBox[{"2", " ", 
              SqrtBox["2"], " ", "u", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}]}], ")"}]}], ",", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "v", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "-", 
           RowBox[{
            SqrtBox["2"], " ", "u", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", "1"}], "}"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"2", " ", "\[Rho]"}], ")"}]}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["u", "2"], "+", 
            SuperscriptBox["v", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
         "-", 
         RowBox[{
          SqrtBox["2"], " ", "u", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
            "\[Gamma]", " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "e"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["u", "2"], "+", 
                 SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
             ")"}]}]]}]}], ")"}]}], ")"}]}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"a", "==", 
       FractionBox[
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
          " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "e"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["u", "2"], "+", 
               SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
        RowBox[{
         SqrtBox["2"], " ", "\[Rho]"}]]}], ",", "e"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", ">", "0"}], ",", 
     RowBox[{"a", ">", "0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.513767854202777*^9, 3.513767907346949*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"a", "+", "u"}], ",", "v", ",", 
    RowBox[{
     RowBox[{"a", " ", "u"}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["u", "2"], "+", 
        SuperscriptBox["v", "2"]}], ")"}]}], "+", 
     FractionBox[
      SuperscriptBox["a", "2"], 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.513767869144457*^9, 3.51376790847429*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"B", ":"}]}]], "Input",
 CellChangeTimes->{{3.513768392937372*^9, 3.513768395286523*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v", ",", "v", ",", 
     RowBox[{"v", "-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
         " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
       
       RowBox[{
        SqrtBox["2"], " ", "\[Rho]"}]]}], ",", 
     RowBox[{"v", "+", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
         " ", "\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
       
       RowBox[{
        SqrtBox["2"], " ", "\[Rho]"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["1", "u"], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["1", "v"], ",", 
       RowBox[{
        FractionBox["u", 
         RowBox[{"2", " ", "v"}]], "-", 
        FractionBox["v", 
         RowBox[{"2", " ", "u"}]]}], ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "+", 
           RowBox[{
            SqrtBox["2"], " ", "v", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "u", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "+", 
           RowBox[{
            SqrtBox["2"], " ", "v", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "v", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "v", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "-", 
               
               RowBox[{
                SqrtBox["2"], " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                  "\[Gamma]", " ", "\[Rho]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                   ")"}]}]]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "v", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], 
               "-", 
               RowBox[{
                SqrtBox["2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                  "\[Gamma]", " ", "\[Rho]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                   ")"}]}]]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"u", "-", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{
              SqrtBox["2"], " ", "v", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "+", 
             RowBox[{"v", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "v"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
                RowBox[{"2", " ", 
                 SqrtBox["2"], " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                   "\[Gamma]", " ", "\[Rho]", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                    ")"}]}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", "1"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "-", 
           RowBox[{
            SqrtBox["2"], " ", "v", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", " ", "u", " ", "\[Rho]"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["u", "2"], "+", 
              SuperscriptBox["v", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
           "-", 
           RowBox[{
            SqrtBox["2"], " ", "v", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
              "\[Gamma]", " ", "\[Rho]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "e"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["u", "2"], "+", 
                   SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
               ")"}]}]]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "v", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "v", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
               
               RowBox[{
                SqrtBox["2"], " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                  "\[Gamma]", " ", "\[Rho]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                   ")"}]}]]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "v", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], 
               "+", 
               RowBox[{
                SqrtBox["2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                  "\[Gamma]", " ", "\[Rho]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                   ")"}]}]]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"u", "-", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "-", 
             RowBox[{
              SqrtBox["2"], " ", "v", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "-", 
             RowBox[{"v", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"v", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
                RowBox[{"2", " ", 
                 SqrtBox["2"], " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                   "\[Gamma]", " ", "\[Rho]", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                    ")"}]}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", "1"}], 
      "}"}]}], "}"}]}], "}"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Rho]"}], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
          "-", 
          RowBox[{
           SqrtBox["2"], " ", "v", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
             "\[Gamma]", " ", "\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "e"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["u", "2"], "+", 
                  SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
              ")"}]}]]}]}]]}], ",", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "u", " ", "\[Rho]"}], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
          "-", 
          RowBox[{
           SqrtBox["2"], " ", "v", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
             "\[Gamma]", " ", "\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "e"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["u", "2"], "+", 
                  SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
              ")"}]}]]}]}]]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "e", " ", "v", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}], "+", 
            RowBox[{
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "v", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
               
               RowBox[{
                SqrtBox["2"], " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                  "\[Gamma]", " ", "\[Rho]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                   ")"}]}]]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "v", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Rho]"}], 
               "+", 
               RowBox[{
                SqrtBox["2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", "\[Gamma]"}], ")"}], " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                  "\[Gamma]", " ", "\[Rho]", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                   ")"}]}]]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "e", " ", "\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"u", "-", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "-", 
             RowBox[{
              SqrtBox["2"], " ", "v", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                "\[Gamma]", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "e"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                 ")"}]}]]}]}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["u", "2"], "+", 
             SuperscriptBox["v", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}],
              "-", 
             RowBox[{"v", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"v", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], "+", 
                RowBox[{"2", " ", 
                 SqrtBox["2"], " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
                   "\[Gamma]", " ", "\[Rho]", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "e"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["u", "2"], "+", 
                    SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
                    ")"}]}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", "1"}], 
      "}"}], "/", 
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[Rho]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "e", " ", "\[Gamma]"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["u", "2"], "+", 
            SuperscriptBox["v", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Rho]"}], 
         "-", 
         RowBox[{
          SqrtBox["2"], " ", "v", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
            "\[Gamma]", " ", "\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "e"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["u", "2"], "+", 
                 SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], 
             ")"}]}]]}]}]]}], ")"}]}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"a", "==", 
       FractionBox[
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", "\[Gamma]", 
          " ", "\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "e"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["u", "2"], "+", 
               SuperscriptBox["v", "2"]}], ")"}], " ", "\[Rho]"}]}], ")"}]}]], 
        RowBox[{
         SqrtBox["2"], " ", "\[Rho]"}]]}], ",", "e"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", ">", "0"}], ",", 
     RowBox[{"a", ">", "0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.513768490744952*^9, 3.513768561435958*^9}, {
  3.513769210287211*^9, 3.513769239942347*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "u", ",", 
    RowBox[{"a", "+", "v"}], ",", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["u", "2"], "+", 
        RowBox[{"v", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "a"}], "+", "v"}], ")"}]}]}], ")"}]}], "+", 
     FractionBox[
      SuperscriptBox["a", "2"], 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.513768552074486*^9, 3.513768562266632*^9}, 
   3.513769241177363*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         FractionBox["1", "u"], ",", "0", ",", "1"}], "}"}], "*", "u"}], ",", 
      
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         FractionBox["1", "v"], ",", 
         RowBox[{
          FractionBox["u", 
           RowBox[{"2", " ", "v"}]], "-", 
          FractionBox["v", 
           RowBox[{"2", " ", "u"}]]}], ",", "1", ",", "0"}], "}"}], "*", 
       "v"}]}], "}"}], "//", "Transpose"}], "//", "Simplify"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.513768601625059*^9, 3.513768643390341*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1"},
     {"1", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "2"], "-", 
        SuperscriptBox["v", "2"]}], 
       RowBox[{"2", " ", "u"}]]},
     {"0", "v"},
     {"u", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.513768607473727*^9, 3.513768643837016*^9}}]
}, Open  ]]
},
WindowSize->{1270, 766},
WindowMargins->{{66, Automatic}, {Automatic, 29}},
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 17999, 510, 534, "Input"],
Cell[CellGroupData[{
Cell[18569, 534, 2117, 66, 94, "Input"],
Cell[20689, 602, 552, 19, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21278, 626, 10060, 286, 341, "Input"],
Cell[31341, 914, 587, 19, 50, "Output"]
}, Open  ]],
Cell[31943, 936, 2583, 83, 121, "Input"],
Cell[34529, 1021, 828, 28, 58, "Output"],
Cell[35360, 1051, 607, 21, 63, "Input"],
Cell[CellGroupData[{
Cell[35992, 1076, 10039, 285, 341, "Input"],
Cell[46034, 1363, 543, 17, 50, "Output"]
}, Open  ]],
Cell[46592, 1383, 146, 3, 55, "Input"],
Cell[46741, 1388, 17945, 504, 497, "Input"],
Cell[CellGroupData[{
Cell[64711, 1896, 10059, 285, 329, "Input"],
Cell[74773, 2183, 626, 20, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75436, 2208, 674, 22, 47, "Input"],
Cell[76113, 2232, 826, 25, 84, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
